home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Guides / PicsData / ARC next >
Text File  |  2000-01-02  |  609b  |  21 lines
  1. ; little script to get ARCHandler running on every Workbench version >= 2.04
  2.  
  3. Assign >NIL: ARC: EXISTS
  4. If WARN
  5.   ; try to find LhA
  6.  
  7.   Which >NIL: LhA
  8.   If WARN
  9.     SetEnv lhapath "AMINET35:Tools/LhA"
  10.   Else
  11.     SetEnv lhapath `Which LhA`
  12.     If "$lhapath" EQ "RES LhA"
  13.       SetEnv lhapath "LhA"
  14.     EndIf
  15.   EndIf
  16.  
  17.   Echo >T:ARCMountList "ARC: Handler=AMINET35:Guides/PicsData/L/arc_handler*NStartup=*"LHA='$lhapath' DISKICON='DEVS:ARCDisk_info' DRAWERICON='DEVS:ARCDrawer_info'*"*NStackSize=4096*NPriority=1*NGlobVec=-1*NMount=1*N#"
  18.   Mount >NIL: ARC: FROM T:ARCMountList
  19.   Delete >NIL: T:ARCMountList
  20. EndIf
  21.